home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XQ WinXP Defrag Boot Optimization.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-04-13  |  1.1 KB  |  48 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Built in Windows Apps\Disk Defragmenter\"
  5. "NAME"="Boot Optimization"
  6. "VERSION"="1.01"
  7. "OSVERSION"="000001"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Optimize Boot"
  10. "DESCRIPTION 1"="Enables or disables Boot Optimization using Disk Defrag in Windows XP."
  11. "AUTHOR"="Xteq Systems (CptSiskoX)"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="Found during registry exploration of Windows XP."
  14.  
  15.  
  16. sP="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction\"
  17. sP2="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction\"
  18. sV2="Enable"
  19.  
  20. Sub Plugin_Initialize 
  21.  If GetWinVer=6 then
  22.     sWD=GetWinDir
  23.  
  24.     s=RegReadValue(sp2&sv2)
  25.     if UCase(s)="Y" then
  26.        Call SetUIElement(1,true)
  27.     end if
  28.  else
  29.     Disable
  30.  end if
  31. End Sub
  32.  
  33. Sub Plugin_CheckData(ElementIndex)
  34. End Sub
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  b=GetUIElement(1)
  38.  if b=true then
  39.   Call RegWriteValue(sp2&sv2,"Y",1)
  40.  else
  41.   Call RegWriteValue(sp2&sv2,"N",1)
  42.  end if
  43.  Logoff
  44. End Sub
  45.  
  46. Sub Plugin_Terminate 
  47. End Sub
  48.